Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  564 1570 (N37E39 L=239)   824    218        2 ( 517/1522- 631/1624) -24.8 E44-E31 N34-N41
      2  375 1531 (N33E55 L=223)   402     60        1 ( 357/1506- 389/1556) -36.9 E56-E52 N31-N35
      3  997 1482 (N33E03 L=275)   214     47        0 ( 971/1466-1028/1499)  26.6 E04-W00 N31-N33
      4  805 1346 (N23E15 L=263)   253     83        0 ( 760/1316- 845/1366)  26.6 E18-E12 N20-N24
      5  250 1300 (N17E60 L=218)   839    150        4 ( 213/1262- 289/1329)   0.0 E64-E55 N14-N18
      6  685 1227 (N15E23 L=255)   791    227        2 ( 651/1145- 743/1309) -59.0 E24-E18 N09-N20
      7  848 1192 (N13E11 L=267)   579    176        1 ( 774/1139- 913/1272)  48.4 E16-E07 N09-N18
      8  144 1171 (N08E73 L=205)  2042    279        4 ( 120/1112- 169/1234) -45.0 E77-E68 N04-N11
      9  757  856 (S08E17 L=261)   493    177        0 ( 710/ 799- 817/ 886)  15.9 E19-E12 S11-S05
     10 1094  660 (S20W05 L=283)  1338    404        4 ( 954/ 548-1175/ 810)  53.1 E03-W09 S27-S09
     11  348  641 (S24E50 L=228)   928    323        4 ( 287/ 567- 405/ 734)  42.7 E57-E43 S29-S17
     12  813  702 (S18E13 L=265)   375    104        2 ( 766/ 674- 866/ 724)   0.0 E16-E09 S19-S15
     13  205  685 (S22E65 L=213)   935    140        2 ( 180/ 662- 231/ 706)  -9.5 E68-E61 S23-S20
     14  770  611 (S24E16 L=262)   538    202        3 ( 736/ 526- 790/ 687) -90.0 E18-E14 S29-S18
     15  495  396 (S42E45 L=233)  1654    340        2 ( 423/ 355- 580/ 471)  25.5 E54-E33 S45-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