Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  779 1778 (N33E43 L= 21)  2681    555        4 ( 739/1656- 821/1918) -41.2 E57-E32 N25-N46
      2 1488 1574 (N43W14 L= 78)   304     58        1 (1473/1541-1509/1600) -78.7 W12-W16 N39-N44
      3  798 1522 (N17E28 L= 36)   290     51        0 ( 769/1499- 839/1539)  36.9 E29-E25 N15-N18
      4 1715 1408 (N39W37 L=101)  2568    383        6 (1585/1292-1790/1489) -18.4 W24-W44 N33-N43
      5  339 1268 (S08E51 L= 13)   311     50        0 ( 318/1241- 365/1291)  63.4 E52-E48 S10-S06
      6  369 1248 (S09E47 L= 16)   404     90        2 ( 333/1208- 398/1290)  59.0 E49-E45 S11-S06
      7  939 1238 (N04E10 L= 53)   192     29        0 ( 923/1217- 955/1265) -45.0 E11-E09 N02-N05
      8  434 1211 (S10E41 L= 23)   307     87        0 ( 393/1175- 467/1249)  56.3 E43-E39 S12-S06
      9 1415 1119 (N11W19 L= 83)   377    101        2 (1393/1058-1438/1169) -63.4 W17-W21 N07-N13
     10 1512 1119 (N14W26 L= 89)   729    224        1 (1447/1053-1577/1169)  49.4 W22-W30 N09-N17
     11  278 1076 (S21E50 L= 13)   487     73        1 ( 257/1039- 296/1116) -53.1 E52-E48 S22-S18
     12  475  916 (S26E31 L= 32)   397    142        0 ( 420/ 899- 541/ 934)  29.1 E35-E26 S27-S22
     13  693  794 (S27E13 L= 50)   231     44        2 ( 666/ 772- 714/ 818)  45.0 E14-E11 S28-S25
     14  496  691 (S39E26 L= 37)   508    115        1 ( 441/ 674- 547/ 714)  24.0 E30-E21 S41-S37
     15 1343  288 (S37W50 L=114)   669    126        1 (1283/ 268-1405/ 305)  45.0 W47-W54 S40-S34
  

    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