Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  583 1667 (N31E50 L=  8)   914    193        1 ( 567/1567- 609/1743) -42.7 E55-E42 N24-N36
      2 1526 1507 (N40W28 L= 86)   307     68        0 (1507/1477-1557/1528)  45.0 W26-W31 N37-N41
      3  873 1489 (N25E19 L= 38)   251     48        0 ( 850/1465- 902/1509) -21.8 E21-E16 N23-N25
      4 1309 1440 (N30W11 L= 68)   461    215        0 (1219/1404-1398/1503)  -8.1 W03-W17 N28-N32
      5  764 1450 (N20E25 L= 32)   691    141        3 ( 721/1415- 832/1489)  50.2 E28-E21 N17-N23
      6 1657 1258 (N25W40 L= 97)   301     46        1 (1637/1232-1673/1288) -63.4 W37-W41 N23-N27
      7  189 1224 (S04E67 L=350)   716     86        2 ( 162/1178- 218/1260) -26.6 E73-E62 S06-S01
      8 1692 1160 (N20W43 L=101)   715     80        2 (1648/1132-1737/1192)   0.0 W39-W47 N17-N21
      9  416  865 (S21E38 L= 19)  3501    673        6 ( 193/ 693- 637/1098)  36.5 E70-E24 S37-S03
     10 1746 1066 (N15W49 L=106)   489     70        1 (1708/1044-1778/1089)  23.2 W45-W52 N13-N16
     11  155  971 (S19E69 L=349)  6523    288       10 ( 108/ 877- 209/1074) -59.7 E81-E60 S25-S13
     12 1698  933 (N06W46 L=104)   398     91        0 (1670/ 891-1733/ 970) -23.2 W43-W50 N04-N07
     13 1501  887 (S00W32 L= 90)   596     94        1 (1450/ 857-1547/ 916)   8.1 W28-W35 S02-N00
     14 1494  751 (S08W35 L= 93)   313    163        0 (1470/ 718-1547/ 804)  90.0 W33-W39 S10-S04
     15 1229  710 (S16W19 L= 76)   410    131        1 (1173/ 687-1299/ 726)  29.7 W15-W22 S18-S13
     16 1024  673 (S22W07 L= 64)   248     65        2 ( 998/ 644-1056/ 702)  33.7 W05-W08 S24-S20
     17 1701  583 (S14W59 L=117)  2021    295        1 (1606/ 502-1795/ 692)  56.3 W54-W65 S21-S06
     18  669  539 (S38E16 L= 42)   318     58        0 ( 650/ 507- 689/ 563) -45.0 E17-E14 S40-S36
     19 1473  394 (S31W50 L=108)   931     96        1 (1426/ 368-1522/ 434)  33.7 W47-W53 S33-S28
     20 1279  376 (S37W35 L= 93)   285     39        0 (1255/ 357-1300/ 395) -21.8 W32-W37 S37-S35
  

    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