Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1246 1852 (N65W42 L=349)  1398    134        2 (1178/1828-1307/1888)   3.0 W29-W68 N62-N68
      2 1524 1573 (N37W45 L=353)   331     64        1 (1494/1555-1558/1586)  -9.5 W42-W49 N36-N38
      3  911 1377 (N27E07 L=301)   975    365        2 ( 855/1293-1005/1470) -63.4 E10-W00 N21-N33
      4  491 1361 (N26E38 L=270)   287    112        1 ( 469/1331- 508/1423) -80.5 E40-E36 N24-N30
      5 1523 1383 (N24W38 L=345)   362     54        0 (1502/1349-1540/1416) -90.0 W36-W38 N22-N26
      6  512 1161 (N14E34 L=274)   302    104        1 ( 475/1141- 545/1201) -21.8 E36-E31 N12-N16
      7  214 1099 (N09E62 L=246)   844    100        2 ( 194/1046- 239/1153) -60.3 E64-E58 N05-N12
      8 1144 1137 (N11W08 L=316)   196     47        0 (1113/1122-1168/1152)   0.0 W05-W09 N09-N11
      9 1746  855 (S10W51 L=359)   527     36        0 (1725/ 826-1767/ 883)  71.6 W49-W53 S11-S08
     10  756  804 (S09E18 L=290)   803    253        1 ( 665/ 731- 829/ 841) -16.7 E23-E13 S13-S06
     11  632  747 (S12E27 L=281)   268     67        1 ( 607/ 703- 655/ 773)  78.7 E28-E24 S15-S10
     12  310  655 (S19E56 L=252)   493     66        1 ( 282/ 629- 345/ 676)  12.5 E60-E51 S20-S17
     13 1525  592 (S26W35 L=343)   456     80        2 (1491/ 566-1561/ 619) -15.9 W31-W38 S27-S23
     14 1592  556 (S29W42 L=350)   656    150        1 (1537/ 515-1664/ 602)  20.0 W37-W48 S31-S25
     15 1161  150 (S67W15 L=323)   696     57        0 (1148/ 117-1171/ 182) -47.0 W11-W26 S76-S61
  

    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