Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  587 1731 (N53E48 L=175)   625     72        1 ( 568/1690- 608/1763) -24.8 E54-E41 N49-N55
      2  487 1720 (N51E63 L=160)   675     49        2 ( 463/1693- 508/1739) -11.3 E71-E56 N49-N53
      3 1008 1572 (N40E00 L=223)   880    202        1 ( 934/1516-1088/1639) -39.3 E06-W06 N35-N45
      4 1564 1464 (N30W43 L=266)   647    141        0 (1499/1425-1624/1495) -21.8 W37-W47 N27-N32
      5  176 1277 (N18E71 L=151)  1474    126        3 ( 138/1226- 205/1341)  66.8 E78-E67 N15-N22
      6 1537 1260 (N17W35 L=258)   282     78        0 (1501/1245-1580/1275)  -9.5 W32-W38 N15-N17
      7  252 1177 (N13E57 L=165)   965    156        2 ( 217/1111- 278/1253)  77.5 E61-E54 N08-N17
      8  633 1189 (N14E25 L=198)   211     37        1 ( 619/1160- 652/1215) -90.0 E26-E23 N12-N15
      9 1872 1143 (N07W66 L=289)   990    108        2 (1840/1110-1908/1186) -45.0 W62-W73 N05-N10
     10 1587 1094 (N06W37 L=260)   521    185        0 (1554/1014-1611/1171)  63.4 W34-W39 N01-N11
     11  439  848 (S07E39 L=183)  1126    258        3 ( 356/ 775- 528/ 942) -36.9 E45-E32 S11-S01
     12  296  691 (S17E56 L=167)  6632    558       10 ( 168/ 535- 427/ 852) -65.8 E72-E46 S27-S07
     13  888  733 (S14E09 L=214)   426    186        0 ( 805/ 699- 933/ 793)  32.0 E14-E06 S16-S10
     14 1236  684 (S18W13 L=236)   294    148        1 (1170/ 653-1273/ 702)   8.1 W08-W15 S19-S16
     15  512  613 (S22E37 L=186)  1116    224        0 ( 467/ 514- 572/ 699)  45.0 E43-E30 S29-S16
     16  987  477 (S32E04 L=219)  2280    444        5 ( 872/ 320-1098/ 647)  54.2 E14-W04 S44-S19
     17 1184  588 (S24W10 L=233)   385    191        0 (1116/ 550-1272/ 641)  31.0 W05-W15 S26-S20
     18  481  387 (S39E51 L=172)   555     52        2 ( 464/ 349- 497/ 417)  36.9 E55-E47 S42-S36
     19  800  344 (S42E21 L=202)   617     68        1 ( 769/ 317- 839/ 375) -45.0 E23-E17 S44-S39
     20  769  213 (S56E32 L=191)   480     48        1 ( 746/ 190- 790/ 237)  68.2 E35-E28 S59-S53
     21 1244  176 (S63W27 L=250)   554     67        0 (1227/ 142-1259/ 205) -37.6 W22-W35 S68-S58
  

    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