Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1002 1731 (N37E26 L=160)  1343    322        2 ( 864/1654-1118/1798)  -2.3 E39-E14 N34-N39
      2  813 1664 (N27E34 L=152)   445     58        1 ( 786/1636- 850/1684)   0.0 E36-E31 N24-N28
      3  632 1618 (N19E44 L=143)   680    145        1 ( 580/1579- 688/1668)  69.4 E46-E41 N15-N23
      4  885 1521 (N20E23 L=163)   748    237        2 ( 852/1438- 922/1632) -47.7 E29-E19 N14-N25
      5  484 1574 (N13E53 L=134)   472    114        1 ( 444/1555- 538/1592)   6.3 E57-E48 N11-N14
      6 1735 1364 (N37W41 L=227)  1427    332        2 (1635/1236-1790/1483) -36.9 W29-W47 N30-N43
      7  751 1260 (N01E22 L=165)  1162    297        2 ( 694/1128- 799/1382) -86.4 E23-E18 S07-N09
      8  397 1273 (S07E46 L=140)   831    180        1 ( 336/1208- 473/1320)  45.0 E49-E41 S11-S02
      9  196 1239 (S13E66 L=120)  1036    141        3 ( 174/1166- 224/1301) -77.5 E68-E64 S17-S08
     10  548 1225 (S06E33 L=153)   621    176        0 ( 530/1143- 569/1293) -53.1 E35-E29 S10-S01
     11 1647 1194 (N23W34 L=220)   618    173        2 (1619/1130-1667/1278) -84.3 W31-W36 N18-N28
     12 1608 1236 (N24W30 L=217)   242     34        1 (1582/1217-1627/1258)   0.0 W28-W32 N23-N25
     13  247 1176 (S15E58 L=129)   410     75        0 ( 230/1139- 265/1211) -53.1 E59-E55 S17-S13
     14 1416 1124 (N11W20 L=206)   392     74        1 (1383/1097-1462/1147)  11.3 W17-W22 N10-N12
     15 1624 1075 (N15W35 L=221)   301     87        0 (1587/1038-1664/1106)  -8.1 W31-W38 N14-N16
     16  780  877 (S20E10 L=176)   472    187        0 ( 725/ 808- 840/ 941)  74.7 E11-E08 S25-S14
     17 1150  815 (S13W13 L=199)   455    118        2 (1116/ 779-1193/ 854) -31.0 W10-W15 S14-S11
     18 1638  726 (S03W47 L=233)   298     78        0 (1618/ 692-1654/ 757) -76.0 W44-W48 S05-S01
     19 1447  688 (S11W35 L=221)  1201    359        3 (1296/ 645-1536/ 743)  34.7 W27-W42 S17-S06
     20 1293  721 (S14W24 L=211)   255     15        0 (1268/ 704-1317/ 739)  56.3 W22-W25 S15-S12
     21 1453  637 (S14W37 L=224)   326     68        2 (1431/ 601-1474/ 669) -78.7 W35-W39 S16-S11
     22 1088  572 (S29W18 L=204)  1276    416        1 ( 929/ 530-1269/ 652)  11.8 W05-W29 S31-S23
     23  880  322 (S52W18 L=205)  1123    247        4 ( 770/ 277- 990/ 387)   5.0 W05-W29 S54-S49
  

    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