Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  796 1871 (N47E41 L=197)   890    167        1 ( 773/1833- 820/1912) -63.4 E45-E36 N43-N51
      2 1063 1532 (N25E07 L=232)   839    171        1 (1017/1449-1120/1592)  74.7 E08-E04 N18-N29
      3  420 1448 (N10E47 L=191)   888    195        0 ( 361/1361- 496/1527)  70.0 E50-E43 N04-N15
      4 1678 1496 (N36W39 L=277)   701    105        1 (1637/1473-1720/1516)  12.5 W34-W43 N34-N38
      5 1389 1429 (N24W16 L=254)  1029    190        0 (1331/1326-1441/1514) -48.0 W10-W20 N18-N29
      6 1744 1467 (N36W45 L=283)   784     99        0 (1712/1442-1771/1494)  40.6 W41-W48 N33-N39
      7 1767 1291 (N24W46 L=284)   347     79        0 (1740/1276-1797/1312) -11.3 W43-W48 N23-N25
      8 1698 1215 (N18W40 L=278)  1098    176        2 (1664/1141-1725/1300)  78.7 W37-W42 N13-N23
      9  426 1097 (S11E39 L=199)  1624    360        3 ( 343/ 921- 497/1265)  72.3 E43-E36 S22-N00
     10 1220 1202 (N07W08 L=247)   517     91        0 (1176/1157-1261/1245) -26.6 W05-W11 N04-N09
     11  141 1176 (S08E69 L=169)   872    182        3 ( 122/1135- 169/1230) -40.6 E74-E64 S10-S04
     12 1906 1048 (N13W63 L=301)   546     78        0 (1885/1020-1927/1077)  53.1 W60-W65 N11-N15
     13  118  930 (S23E67 L=171)   584     73        0 ( 101/ 902- 130/ 964)  90.0 E69-E65 S24-S20
     14  188  818 (S30E59 L=180)  1528    435        0 ( 127/ 711- 251/ 918)  42.7 E66-E52 S35-S23
     15 1365  789 (S14W25 L=263)  2817    676        1 (1040/ 728-1650/ 833)  14.0 W04-W45 S18-S08
     16  776  661 (S32E10 L=229)   963    332        1 ( 617/ 630- 933/ 688)  23.6 E21-W00 S36-S28
     17  567  610 (S39E25 L=213)   412     68        1 ( 536/ 580- 596/ 639)  59.0 E28-E22 S41-S36
     18  470  571 (S43E34 L=204)   876    162        3 ( 401/ 539- 523/ 615) -16.7 E40-E29 S45-S40
     19 1727  479 (S23W64 L=303)  2315    298        4 (1642/ 429-1801/ 529)  29.7 W56-W70 S26-S17
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y