Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1650 (N45W18 L=214)   284     73        0 (1177/1634-1242/1671) -31.0 W16-W21 N43-N47
      2 1372 1545 (N36W29 L=224)   425     56        1 (1339/1517-1406/1570) -11.3 W26-W31 N34-N38
      3 1765 1516 (N31W71 L=266)   691     57        1 (1735/1499-1794/1535)  -5.7 W65-W77 N29-N31
      4  373 1288 (N21E47 L=148)   630    133        1 ( 333/1228- 397/1327) -50.2 E51-E43 N17-N23
      5 1006 1256 (N18E01 L=195)   190    116        0 ( 977/1207-1040/1300) -63.4 E02-W01 N15-N21
      6  246 1220 (N16E59 L=136)  1117    168        3 ( 225/1137- 267/1287) -66.0 E62-E55 N11-N20
      7 1602 1027 (N02W38 L=233)   276     63        0 (1570/1007-1626/1049)  11.3 W35-W40 N00-N03
      8  710  946 (S00E20 L=175)   336     90        1 ( 666/ 923- 746/ 976)  21.8 E22-E17 S01-N01
      9  873  831 (S07E10 L=185)  1138    341        3 ( 762/ 749-1009/ 923) -36.3 E16-E01 S12-S01
     10 1483  864 (S08W29 L=224)   343    103        1 (1457/ 826-1505/ 897)  63.4 W27-W30 S09-S05
     11 1327  758 (S13W19 L=214)   453    151        1 (1272/ 716-1356/ 818)  50.2 W15-W20 S15-S09
     12 1389  771 (S13W23 L=218)   236     74        0 (1367/ 753-1416/ 799)  18.4 W21-W24 S14-S11
     13  473  729 (S14E38 L=157)   774    227        2 ( 402/ 697- 579/ 775) -17.1 E43-E30 S15-S10
     14  604  625 (S21E30 L=165)  1548    319        5 ( 496/ 523- 715/ 716) -29.7 E37-E22 S27-S14
     15  903  593 (S23E09 L=186)  1166    276        2 ( 825/ 488- 996/ 675)  45.0 E15-E02 S30-S17
     16 1505  533 (S30W34 L=230)  1856    312        3 (1430/ 432-1612/ 645)  53.7 W29-W41 S37-S22
     17 1464  585 (S26W30 L=225)   497    137        1 (1404/ 545-1513/ 621)  32.0 W25-W33 S28-S23
     18  557  563 (S25E35 L=160)   310     38        0 ( 539/ 541- 581/ 589) -45.0 E36-E33 S26-S22
     19  838  376 (S39E17 L=178)  1204    268        2 ( 722/ 353- 944/ 414)  -3.4 E25-E08 S41-S35
     20 1208  323 (S45W13 L=209)  1018    125        2 (1158/ 290-1265/ 358) -11.3 W08-W18 S48-S41
     21 1105  177 (S61W06 L=201)   464     50        1 (1089/ 149-1132/ 203)  82.9 W03-W08 S65-S57
  

    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