Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1591 1696 (N25W70 L= 40)  1176     64        2 (1554/1662-1618/1723)  38.7 W65-W75 N22-N26
      2 1397 1574 (N26W42 L= 13)   509    127        0 (1337/1549-1456/1598) -39.8 W39-W45 N22-N28
      3 1313 1470 (N23W31 L=  2)   804    253        0 (1202/1426-1403/1504) -26.6 W23-W35 N18-N26
      4  294 1428 (N50E54 L=276)   648     59        1 ( 271/1397- 325/1450)  45.0 E59-E48 N47-N51
      5 1046 1346 (N24W10 L=341)   560    195        2 (1011/1284-1087/1433)  84.3 W07-W11 N19-N29
      6  510 1302 (N36E27 L=303)  1054    184        5 ( 438/1254- 606/1349) -29.7 E33-E19 N31-N40
      7 1209 1188 (N11W15 L=345)   232     82        0 (1173/1155-1240/1227) -68.2 W13-W15 N08-N13
      8  704 1191 (N24E15 L=316)   288     75        1 ( 671/1162- 743/1219) -51.3 E16-E12 N21-N26
      9 1597  970 (S13W33 L=  3)  1094    284        0 (1533/ 852-1653/1103)  38.2 W25-W39 S17-S06
     10  243 1037 (N25E55 L=275)   420     65        1 ( 223/1009- 264/1073)  53.1 E58-E53 N23-N27
     11  833  998 (N10E11 L=319)   469    144        0 ( 780/ 943- 893/1052) -66.0 E13-E09 N05-N14
     12 1830  973 (S21W53 L= 24)   631    110        2 (1808/ 918-1848/1029)  56.3 W50-W56 S23-S17
     13  531  944 (N14E32 L=299)   358     86        2 ( 494/ 916- 563/ 973) -59.0 E34-E29 N11-N16
     14  281  913 (N17E53 L=277)   858    141        3 ( 234/ 855- 318/ 969)  29.1 E58-E48 N14-N20
     15 1434  825 (S16W18 L=349)   219    102        1 (1389/ 812-1485/ 840) -33.7 W15-W21 S17-S13
     16 1406  711 (S22W14 L=344)   282    135        0 (1347/ 685-1461/ 751)   0.0 W09-W18 S22-S20
     17 1605  695 (S30W28 L=358)  1037    149        2 (1551/ 643-1671/ 751)  16.7 W23-W34 S32-S26
     18  247  724 (N07E63 L=267)   435     60        0 ( 211/ 710- 277/ 736)  -7.1 E67-E58 N05-N07
     19 1083  472 (S27E13 L=318)   236     96        1 (1055/ 443-1107/ 517)  26.6 E15-E09 S29-S25
     20 1060  305 (S39E22 L=308)   666    141        0 (1036/ 244-1081/ 373)  48.0 E27-E18 S43-S33
     21  817  326 (S30E37 L=294)   639    108        2 ( 777/ 291- 858/ 364)  16.7 E41-E31 S31-S28
  

    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