Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1348 1759 (N50E02 L=273)   407     55        1 (1319/1744-1379/1773)  11.3 E04-W01 N47-N53
      2  549 1676 (N20E51 L=224)   795    154        0 ( 501/1635- 615/1695)  39.8 E54-E46 N16-N21
      3  843 1467 (N13E22 L=253)   755    303        0 ( 798/1367- 888/1608) -45.0 E29-E16 N08-N21
      4  199 1193 (S15E62 L=213)  4730    798       18 ( 121/1013- 269/1352)  87.3 E69-E55 S26-S05
      5  288 1178 (S15E52 L=223)   339    111        1 ( 253/1152- 323/1196)  31.0 E54-E49 S16-S13
      6  695  995 (S17E18 L=257)   789    279        0 ( 580/ 960- 846/1024)  16.4 E25-E08 S19-S13
      7  194  951 (S30E57 L=218)  1169    235        1 ( 135/ 923- 253/ 985)  18.4 E63-E50 S31-S27
      8  372  943 (S27E40 L=235)   504    132        0 ( 322/ 924- 426/ 962)  24.0 E44-E35 S29-S24
      9 1364  856 (S07W24 L=298)   689    199        2 (1310/ 759-1408/ 928) -35.0 W18-W28 S11-S04
     10  827  811 (S24E06 L=269)  1878    709        2 ( 499/ 716-1141/ 896)  12.1 E28-W15 S33-S16
     11 1349  602 (S21W32 L=307)   408    129        0 (1298/ 554-1383/ 645) -12.5 W27-W36 S22-S19
     12 1532  588 (S16W44 L=319)   265     83        2 (1511/ 565-1556/ 612) -14.0 W42-W46 S17-S14
     13 1002  504 (S37W15 L=290)  1125    281        1 ( 860/ 448-1131/ 543)  14.0 W05-W25 S41-S34
     14 1605  412 (S22W60 L=335)   402     52        1 (1585/ 388-1626/ 437) -56.3 W57-W62 S23-S20
  

    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