Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  636 1557 (N50E12 L=279)   407     75        2 ( 609/1517- 661/1595)  51.3 E14-E08 N47-N52
      2  871 1542 (N41W07 L=297)   589    105        2 ( 828/1509- 921/1572)  -7.1 W02-W10 N38-N42
      3 1003 1525 (N35W15 L=305)   487     82        1 ( 968/1492-1043/1551)  18.4 W12-W18 N33-N37
      4  418 1525 (N54E37 L=253)   394     62        1 ( 394/1491- 434/1549) -68.2 E41-E34 N51-N56
      5  324 1515 (N56E53 L=237)   645    105        0 ( 289/1479- 366/1536)   4.8 E60-E45 N54-N57
      6 1685 1378 (N06W53 L=343)   845    110        2 (1641/1329-1722/1425)  18.4 W47-W56 N04-N08
      7 1355 1336 (N14W28 L=318)   383     90        0 (1324/1310-1394/1369) -68.2 W26-W30 N11-N16
      8  672 1214 (N26E16 L=274)   231     49        1 ( 653/1183- 697/1237)  71.6 E17-E14 N24-N27
      9  179 1177 (N35E65 L=226)   849     84        1 ( 143/1143- 214/1205) -21.0 E72-E58 N32-N37
     10  722 1127 (N20E15 L=275)   228    104        0 ( 674/1089- 746/1153) -59.0 E17-E13 N17-N22
     11 1682 1056 (S11W41 L=331)   268     18        0 (1665/1035-1703/1074)  18.4 W39-W42 S11-S09
     12 1841  958 (S22W54 L=345)   421     93        1 (1804/ 939-1869/ 988)   7.1 W49-W58 S23-S20
     13  704  906 (N08E21 L=269)   361    116        0 ( 652/ 884- 760/ 925) -23.2 E24-E17 N06-N09
     14  820  689 (S07E20 L=270)   299     68        0 ( 787/ 675- 866/ 709) -31.0 E22-E17 S08-S05
     15 1001  612 (S16E13 L=278)   493    191        0 ( 951/ 583-1036/ 683)  29.7 E15-E08 S18-S12
     16 1538  641 (S31W22 L=312)   265    103        0 (1520/ 585-1563/ 674)  45.0 W19-W24 S34-S29
     17 1338  562 (S29W06 L=296)   921    240        2 (1260/ 493-1400/ 662)  30.3 W00-W12 S31-S24
     18 1688  576 (S42W35 L=326)  1023    124        2 (1638/ 537-1720/ 623)  12.5 W29-W39 S44-S37
     19 1048  222 (S46E29 L=261)  1471    222        1 ( 939/ 181-1125/ 275)   5.2 E41-E19 S47-S42
  

    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