Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1544 1571 (N20W51 L=327)   393    106        0 (1504/1524-1567/1614)  71.6 W48-W52 N17-N23
      2  683 1449 (N39E10 L=266)   356     91        0 ( 645/1419- 734/1468)   0.0 E13-E05 N38-N40
      3 1391 1432 (N17W34 L=310)   418     80        0 (1355/1415-1438/1457) -45.0 W31-W36 N15-N19
      4 1494 1226 (N03W33 L=309)   399    135        1 (1464/1170-1538/1266)  23.2 W29-W36 N01-N04
      5 1411 1243 (N07W28 L=304)   325     73        1 (1376/1214-1442/1261) -26.6 W26-W30 N05-N08
      6 1071 1181 (N13W07 L=283)   650    259        1 ( 937/1118-1190/1222)  -3.6 E02-W14 N10-N14
      7  732 1087 (N16E15 L=261)   277    155        0 ( 676/1065- 804/1139) -49.4 E17-E11 N13-N20
      8  260  932 (N18E53 L=223)  3282    669        8 ( 100/ 869- 440/1010) -21.2 E69-E38 N11-N24
      9 1525  738 (S25W22 L=299)  1844    367        6 (1447/ 575-1595/ 890)  41.4 W13-W30 S33-S17
     10  166  777 (N11E70 L=206)   688     98        1 ( 154/ 737- 185/ 827)  45.0 E72-E66 N08-N13
     11  848  667 (S10E20 L=257)   212     77        2 ( 820/ 637- 880/ 697)  21.8 E21-E16 S11-S08
     12  803  464 (S21E30 L=247)   678    154        1 ( 740/ 419- 879/ 498) -45.0 E33-E26 S25-S18
     13  341  459 (S11E66 L=210)   985    140        2 ( 297/ 426- 385/ 494) -35.5 E71-E62 S13-S08
     14  720  408 (S22E38 L=239)   284     74        0 ( 686/ 383- 756/ 440) -68.2 E38-E36 S24-S19
     15  510  297 (S25E61 L=215)  1967    285        5 ( 452/ 226- 564/ 371)  76.0 E65-E57 S31-S19
  

    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