Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  898 1741 (N49E24 L=293)   419     82        1 ( 852/1721- 933/1762)  38.7 E26-E20 N46-N51
      2  518 1427 (N21E41 L=276)   329    104        0 ( 487/1388- 557/1465) -26.6 E44-E36 N18-N22
      3 1713 1424 (N34W53 L=  9)   367     38        0 (1695/1405-1733/1447) -56.3 W50-W54 N32-N35
      4 1605 1296 (N24W38 L=355)  2161    393        6 (1505/1144-1660/1446)  54.5 W29-W46 N13-N34
      5 1133 1364 (N24W03 L=320)   276     99        0 (1077/1344-1179/1384)  -9.5 W00-W06 N22-N24
      6  441 1097 (S01E39 L=277)   776    153        1 ( 373/1077- 522/1120)   4.8 E44-E32 S02-N00
      7  491  913 (S11E34 L=283)   601    210        2 ( 437/ 851- 567/ 955) -26.6 E38-E27 S14-S08
      8  266  879 (S16E54 L=263)   378     64        1 ( 236/ 860- 299/ 899)  23.2 E57-E50 S17-S14
      9  467  828 (S17E36 L=281)   359    123        2 ( 405/ 809- 522/ 854)   0.0 E40-E31 S17-S15
     10 1162  742 (S15W12 L=328)   531    224        0 (1133/ 665-1202/ 831) -70.0 W09-W15 S19-S08
     11  513  706 (S24E32 L=284)   287     53        2 ( 491/ 679- 532/ 734)  76.0 E33-E30 S26-S22
     12 1743  524 (S23W68 L= 25)  1838    306        1 (1648/ 437-1830/ 643)  56.3 W61-W73 S29-S14
     13  407  614 (S32E43 L=273)   432     96        0 ( 364/ 601- 453/ 631)   0.0 E47-E38 S33-S30
     14 1194  399 (S38W22 L=338)   458     82        1 (1159/ 376-1229/ 423)   9.5 W18-W24 S39-S35
     15 1147  230 (S54W28 L=344)  1235    147        2 (1093/ 182-1195/ 293)  90.0 W24-W31 S60-S47
  

    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